home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Utilities / Programming / EnterAct 3.5 / Drag_on Modules / hAWK programs / $UppercaseAll < prev    next >
Encoding:
Text File  |  1993-05-11  |  320 b   |  18 lines  |  [TEXT/KEEN]
  1. #Change all letters of each word (field) to uppercase
  2. BEGIN {u = "abcdefghijklmnopqrstuvwxyz"
  3.     U = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  4.     }
  5.     
  6.     {
  7.     out = ""
  8.     n = length($0);
  9.     for (i = 1; i <= n; ++i)
  10.         {
  11.         if (ind = index(u, substr($0, i, 1)))
  12.             out = out substr(U, ind, 1);
  13.         else
  14.             out = out substr($0, i, 1)
  15.         }
  16.     print out
  17.     }
  18.